program meuprograma;  
var c,b,e:array[a..1,1..c] of boolean; 
bc,aas:integer;
bca,aaas,a:string;
valor,a2:integer;

12;

procedure ab();  
begin  
	a:=a+a;
end;
function acb(a:integer):integer; 
               begin	a:=a;
		for a:= 1 downto 12 do 
		begin 

			b := a;
			
		end;
end;

begin
	while true do read(a);
	
	read(a);
	c:=a;
	e:=a;
	writeln("as");
	if a then
	begin
		readln(a);
	end else 
	begin
		readln(a);
	end;
	case a of 
		a:readln(a); 

end;
